&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

DEF INPUT PARAMETER tb-large        AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-border       AS   INTEGER             NO-UNDO.
DEF INPUT PARAMETER tb-aligne       AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-bcol         AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-space        AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-fill3        AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-fill4        AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-fill5        AS   CHARACTER           NO-UNDO.
DEF INPUT PARAMETER tb-fill6        AS   CHARACTER           NO-UNDO.

DEF            VAR sep              AS   CHARACTER INIT "~"" NO-UNDO.



 /* Stream where we write all web output */
&IF DEFINED(WEBSTREAM) = 0 &THEN
  &GLOBAL-DEFINE WEBSTREAM STREAM WebStream
&ENDIF

/* Only define a stream if there's something to define */
&IF "{&WEBSTREAM}" <> "" &THEN
DEFINE {1} SHARED {&WEBSTREAM}.
&ENDIF

&GLOBAL-DEFINE OUT-STREAM PUT {&WEBSTREAM} UNFORMATTED
/* OUT-FILE is the same as OUT-STREAM, for now.  */
&GLOBAL-DEFINE OUT-FILE {&OUT-STREAM}
&GLOBAL-DEFINE OUT {&OUT-STREAM}
&GLOBAL-DEFINE OUT-FMT PUT {&WEBSTREAM}
&GLOBAL-DEFINE DISPLAY DISPLAY {&WEBSTREAM}
&GLOBAL-DEFINE END .

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Procedure
&Scoped-define DB-AWARE no



/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 


/* ***************************  Main Block  *************************** */

{&out} "<table border=" tb-border.


IF tb-space  <> "" THEN {&out} " cellspacing=" sep tb-space  sep.
IF tb-aligne <> "" THEN {&out} " align="       sep tb-aligne sep.
IF tb-large  <> "" THEN {&out} " width="       sep tb-large  sep.
IF tb-bcol   <> "" THEN {&out} " bordercolor=" sep tb-bcol   sep.
      
{&out} ">" SKIP.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


